Imports DAO
Imports DTO

Public Class QuyDinhBUS

    'Lay Bang
    Public Function LayBang() As DataTable
        Dim dt As DataTable
        Dim qdDAO As New QuyDinhDAO()
        dt = qdDAO.LayBang()
        Return dt
    End Function

    'cap nhat
    Public Sub CapNhatQuyDinh(ByVal qd As QuiDinhDTO)
        Dim qdDAO As New QuyDinhDAO
        qdDAO.CapNhatQuyDinh(qd)
    End Sub

    'lay si so toi da
    Public Function LaySiSoToiDa() As Integer
        Dim kq As New Integer
        Dim qdDAO As New QuyDinhDAO
        kq = qdDAO.LaySiSoToiDa()
        Return kq
    End Function

End Class
